Skip to main content
This forum is closed to new posts and responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:

HCL Software Customer Support Portal for U.S. Federal Government clients
HCL Software Customer Support Portal

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Previous Next
Subject: ISAM error in VBA module linking to LN database
Feedback Type: Problem
Product Area: Database
Technical Area: Error Message
Platform: Windows
Release: 8.5.2
Reproducible: Always

I am using VBA in Access 2003 to create a DSN-less connection to one of the databases on our Domino server. I have no issues connecting WITH a DSN, but connection WITHOUT a DSN is proving problematic.

The primary purpose of the sub here is to eliminate the password prompt that appears when I run a query utilizing links created with the DSN.

Here's the sub:

Sub OpenConnectionX()

Dim intCounter As Integer
Dim oCat As ADOX.Catalog
Dim oTable As ADOX.Table
Dim strConnString As String
Dim strLinkTable As String 'DB Table Name
Dim strLNTable As String 'LN Table Name

strConnString = "Driver ={Lotus Notes SQL DRIVER (*.nsf)};" & _
" Server =Server/PTI;" & _
" Database =folder\dbname.nsf;" & _
" Uid =User Name/UNM;" & _
" Pwd =Password;"

strLinkTable = "LN_DataExport"
strLNTable = "DataExport"

Set oCat = New ADOX.Catalog
oCat.ActiveConnection = CurrentProject.Connection

Set oTable = New ADOX.Table

With oTable
.Name = strLinkTable
Set .ParentCatalog = oCat
.Properties("Jet OLEDB:Create Link") = True
.Properties("Jet OLEDB:Remote Table Name") = strLNTable
.Properties("Jet OLEDB:Cache Link Name/Password") = True
.Properties("Jet OLEDB:Link Provider String") = strConnString
End With

oCat.Tables.Append oTable
oCat.Tables.Refresh

Set oTable = Nothing
Set oCat = Nothing

End Sub

The error received when running this sub is "Run-time error '-2147467259 (80004005)': Could not find installable ISAM."

I've completed the problem-solving tips recommended by Microsoft (reregistering DLL, reinstalling DLL, confirming file paths, etc). I've also uninstalled and reinstalled the NotesSQL driver (v8.5.1), and also uninstalled and reinstalled MS Access.

Based on the fact that I can connect using a DSN connection, I am convinced that there is an issue with my connection string.

I've been working on this for a while (http://www.tek-tips.com/viewthread.cfm?qid=1661339&page=1) and have been unable to resolve. Any help would be greatly appreciated!


Feedback number WEBB8M3KWQ created by ~Cheryl Nimfreeskioopsi on 09/26/2011

Status: Open
Comments:





Printer-friendly

Search this forum

Member Tools


RSS Feeds

 RSS feedsRSS
All forum posts RSS
All main topics RSS